--This is a supercharged version of the Pop-Up Note idea
--originated by Eastgate Systems
--Upon copying this button into your stacks a field and OK button
--will be generated and linked. You may change the size, location
--or fonts, just dont change the names, they are critical to the process
--When you delete the arrow button the field and OK button will be
--deleted automatically.
-- Use in good health,
-- Steve Fuchs
--CIS: 71270,550
--GENIE: S.FUCHS
--
on deletebutton
if the short name of me is "lameduck" then exit deletebutton
beep(4)
answer "That represents a Pop-up Note!!" with "Delete" or "Cancel"
if it is "Cancel" then
choose browse tool
exit deletebutton
end if
put the short name of me into myname
Put myname into fieldname
put "f" into last character of fieldname
show card field fieldname
choose field tool
click at the location of card field fieldname
Type "X" with commandkey
put myname into okid
delete last char of okid
delete last char of okid
delete last char of okid
delete last char of okid
show card button id okid
choose button tool
click at the location of card button id okid
Type "X" with commandkey
set the name of me to "lameduck"
click at the location of me
Type "X" with commandkey
choose browse tool
end deletebutton
on mouseUp
put the short name of me into myname
Put myname into fieldname
put "f" into last character of fieldname
show card field fieldname
put myname into okid
delete last char of okid
delete last char of okid
delete last char of okid
delete last char of okid
show card button id okid
Put the name of me into holder
hide holder
end mouseUp
on newbutton
set cursor to 4
set lockscreen to true
put id of me into StartId
set lockmessages to true
set editbkgnd to false
domenu "New Field"
set name of card field number of card fields to "PupF"&StartId
Put "PupF"&StartId into holder
set style of card field holder to rectangle
put item 3 of the rect of me+1 into item 1 of Fieldrect
put item 2 of the rect of me-50 into item 2 of Fieldrect
put item 3 of the rect of me+135 into item 3 of Fieldrect
put item 4 of the rect of me into item 4 of Fieldrect
set rect of card field holder to fieldrect
set textsize of card field holder to 9
Put "This is the self-generating Pop-up note. Implemented"&& "by Steven Fuchs"&return&"CIS id: 71270,550"&return &"GENIE id: S.FUCHS" into card field holder
domenu "New Button"
Put the id of card button the number of card buttons into Theid
Set the name of card button id Theid to "OK"
Set showname of card button id Theid to true
put item 1 of Fieldrect+95 into item 1 of butrect
put item 4 of Fieldrect-15 into item 2 of butrect
put item 1 of butrect+60 into item 3 of butrect
put item 2 of butrect+20 into item 4 of butrect
set rect of card button id Theid to butrect
Put "PupF"&Startid into holder
set name of card field holder to Theid&"PupF"
set the name of me to Theid&"PupS"
Put the name of me into holder
hide holder
set script of card button id Theid to ""
Put "on mouseup" into line 1 of scr
Put "Put the id of me into canid" into line 2 of scr
Put "Put canid&""e&"pupf""e&" into holder" into line 3 of scr
Put "Hide card button id canid" into line 4 of scr
Put "hide card field holder" into line 5 of scr
Put "Put canid&""e&"pups""e&" into holder" into line 6 of scr
Put "show card button holder" into line 7 of scr
Put return&"end mouseup" after scr
set script of card button id Theid to scr
choose browse tool
end newbutton
-- part 58 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=351 top=48 right=75 bottom=387
-- title width / last selected line: 0
-- icon id / first selected line: 2478 / 2478
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 60PupS
----- HyperTalk script -----
--This is a supercharged version of the Pop-Up Note idea
--originated by Eastgate Systems
--Upon copying this button into your stacks a field and OK button
--will be generated and linked. You may change the size, location
--or fonts, just dont change the names, they are critical to the process
--When you delete the arrow button the field and OK button will be
--deleted automatically.
-- Use in good health,
-- Steve Fuchs
--CIS: 71270,550
--GENIE: S.FUCHS
--
on deletebutton
if the short name of me is "lameduck" then exit deletebutton
beep(4)
answer "That represents a Pop-up Note!!" with "Delete" or "Cancel"
if it is "Cancel" then
choose browse tool
exit deletebutton
end if
put the short name of me into myname
Put myname into fieldname
put "f" into last character of fieldname
show card field fieldname
choose field tool
click at the location of card field fieldname
Type "X" with commandkey
put myname into okid
delete last char of okid
delete last char of okid
delete last char of okid
delete last char of okid
show card button id okid
choose button tool
click at the location of card button id okid
Type "X" with commandkey
set the name of me to "lameduck"
click at the location of me
Type "X" with commandkey
choose browse tool
end deletebutton
on mouseUp
put the short name of me into myname
Put myname into fieldname
put "f" into last character of fieldname
show card field fieldname
put myname into okid
delete last char of okid
delete last char of okid
delete last char of okid
delete last char of okid
show card button id okid
Put the name of me into holder
hide holder
end mouseUp
on newbutton
set cursor to 4
set lockscreen to true
put id of me into StartId
set lockmessages to true
set editbkgnd to false
domenu "New Field"
set name of card field number of card fields to "PupF"&StartId
Put "PupF"&StartId into holder
set style of card field holder to rectangle
put item 3 of the rect of me+1 into item 1 of Fieldrect
put item 2 of the rect of me-50 into item 2 of Fieldrect
put item 3 of the rect of me+135 into item 3 of Fieldrect
put item 4 of the rect of me into item 4 of Fieldrect
set rect of card field holder to fieldrect
set textsize of card field holder to 9
Put "This is the self-generating Pop-up note. Implemented"&& "by Steven Fuchs"&return&"CIS id: 71270,550"&return &"GENIE id: S.FUCHS" into card field holder
domenu "New Button"
Put the id of card button the number of card buttons into Theid
Set the name of card button id Theid to "OK"
Set showname of card button id Theid to true
put item 1 of Fieldrect+95 into item 1 of butrect
put item 4 of Fieldrect-15 into item 2 of butrect
put item 1 of butrect+60 into item 3 of butrect
put item 2 of butrect+20 into item 4 of butrect
set rect of card button id Theid to butrect
Put "PupF"&Startid into holder
set name of card field holder to Theid&"PupF"
set the name of me to Theid&"PupS"
Put the name of me into holder
hide holder
set script of card button id Theid to ""
Put "on mouseup" into line 1 of scr
Put "Put the id of me into canid" into line 2 of scr
Put "Put canid&""e&"pupf""e&" into holder" into line 3 of scr
Put "Hide card button id canid" into line 4 of scr
Put "hide card field holder" into line 5 of scr
Put "Put canid&""e&"pups""e&" into holder" into line 6 of scr
Put "show card button holder" into line 7 of scr
Put return&"end mouseup" after scr
set script of card button id Theid to scr
choose browse tool
end newbutton
-- part 62 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=293 top=85 right=144 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 57 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=222 top=76 right=94 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Start Class
----- HyperTalk script -----
on mouseUp
send mouseup to bkgnd button "Add Class"
end mouseUp
-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=455 top=93 right=110 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 11PupS
----- HyperTalk script -----
--This is a supercharged version of the Pop-Up Note idea
--originated by Eastgate Systems
--Upon copying this button into your stacks a field and OK button
--will be generated and linked. You may change the size, location
--or fonts, just dont change the names, they are critical to the process
--When you delete the arrow button the field and OK button will be
--deleted automatically.
-- Use in good health,
-- Steve Fuchs
--CIS: 71270,550
--GENIE: S.FUCHS
--
on deletebutton
if the short name of me is "lameduck" then exit deletebutton
beep(4)
answer "That represents a Pop-up Note!!" with "Delete" or "Cancel"
if it is "Cancel" then
choose browse tool
exit deletebutton
end if
put the short name of me into myname
Put myname into fieldname
put "f" into last character of fieldname
show card field fieldname
choose field tool
click at the location of card field fieldname
Type "X" with commandkey
put myname into okid
delete last char of okid
delete last char of okid
delete last char of okid
delete last char of okid
show card button id okid
choose button tool
click at the location of card button id okid
Type "X" with commandkey
set the name of me to "lameduck"
click at the location of me
Type "X" with commandkey
choose browse tool
end deletebutton
on mouseUp
put the short name of me into myname
Put myname into fieldname
put "f" into last character of fieldname
show card field fieldname
put myname into okid
delete last char of okid
delete last char of okid
delete last char of okid
delete last char of okid
show card button id okid
Put the name of me into holder
hide holder
end mouseUp
on newbutton
set cursor to 4
set lockscreen to true
put id of me into StartId
set lockmessages to true
set editbkgnd to false
domenu "New Field"
set name of card field number of card fields to "PupF"&StartId
Put "PupF"&StartId into holder
set style of card field holder to rectangle
put item 3 of the rect of me+1 into item 1 of Fieldrect
put item 2 of the rect of me-50 into item 2 of Fieldrect
put item 3 of the rect of me+135 into item 3 of Fieldrect
put item 4 of the rect of me into item 4 of Fieldrect
set rect of card field holder to fieldrect
set textsize of card field holder to 9
Put "This is the self-generating Pop-up note. Implemented"&& "by Steven Fuchs"&return&"CIS id: 71270,550"&return &"GENIE id: S.FUCHS" into card field holder
domenu "New Button"
Put the id of card button the number of card buttons into Theid
Set the name of card button id Theid to "OK"
Set showname of card button id Theid to true
put item 1 of Fieldrect+95 into item 1 of butrect
put item 4 of Fieldrect-15 into item 2 of butrect
put item 1 of butrect+60 into item 3 of butrect
put item 2 of butrect+20 into item 4 of butrect
set rect of card button id Theid to butrect
Put "PupF"&Startid into holder
set name of card field holder to Theid&"PupF"
set the name of me to Theid&"PupS"
Put the name of me into holder
hide holder
set script of card button id Theid to ""
Put "on mouseup" into line 1 of scr
Put "Put the id of me into canid" into line 2 of scr
Put "Put canid&""e&"pupf""e&" into holder" into line 3 of scr
Put "Hide card button id canid" into line 4 of scr
Put "hide card field holder" into line 5 of scr
Put "Put canid&""e&"pups""e&" into holder" into line 6 of scr
Put "show card button holder" into line 7 of scr
Put return&"end mouseup" after scr
set script of card button id Theid to scr
choose browse tool
end newbutton
-- part 63 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=415 top=40 right=69 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
visual effect dissolve
go to home
end mouseUp
-- part 64 (field)
-- low flags: 01
-- high flags: 4002
-- rect: left=18 top=98 right=123 bottom=144
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Stack Size
----- HyperTalk script -----
-- This is a stack size display field scripted by Steven Fuchs
-- CIS id: 71270,550
--based upon an idea in "The Developer Stack"
--Freeware, I find it useful
--Note, it doesn't recognize the size of a stacks resource fork, yet.
on newfield
put the id of me into theid
put "Stack Size "&the size of this stack into line 1 of card field id theid
put "Wasted "&the freesize of this stack into line 2 of card field id theid
end newfield
on mouseup
put the id of me into theid
if the selection is empty then
set locktext of the target to false
put item 2 of the clickloc into hori
click at item 1 of the rect of card field id theid,hori
click at item 3 of the rect of card field id theid-1,hori with shiftkey
put selection into holder
set locktext of the target to true
click at 0,0
end if
if first word of holder is "Wasted" then DoMenu "Compact Stack"
put "Stack Size "&the size of this stack into line 1 of card field id theid
put "Wasted "&the freesize of this stack into line 2 of card field id theid
end mouseup
-- part 59 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=6 top=94 right=228 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 60PupF
-- part 60 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=132 top=197 right=212 bottom=179
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseup
Put the id of me into canid
Put canid&"pupf" into holder
Hide card button id canid
hide card field holder
Put canid&"pups" into holder
show card button holder
end mouseup
-- part 55 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=93 top=76 right=233 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 56PupF
-- part 56 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=331 top=234 right=249 bottom=384
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseup
Put the id of me into canid
Put canid&"pupf" into holder
Hide card button id canid
hide card field holder
Put canid&"pups" into holder
show card button holder
end mouseup
-- part contents for card part 10
----- text -----
A+,101,96
A,96,93
A-,93,90
B+,90,87
B,87,83
B-,83,80
C+,80,77
C,77,73
C-,73,70
D+,70,68
D,68,67
D-,67,65
F,65,0
-- part contents for card part 64
----- text -----
Stack Size 33792
Wasted 0
-- part contents for card part 59
----- text -----
The Student Teacher is a stack by Steven Fuchs. A $5 shareware fee is required if this is used in an official manner. Please send checks to:
Steve Fuchs
PO Box 129
Coram, NY 11727
Compuserve:71270,550
GEnie:S.FUCHS
--Thanks, Enjoy--
-- part contents for card part 55
----- text -----
Hello Hypercard User, Welcome to the Student Teacher stack, This stack will keep track of test grades for any number of classes, figure the weighted averages, and also assign grades according to a customizable scale. In order to start, click on the "Start Class" button, you will be prompted for a class name and the class card will be created. Students are added by clicking on the "Add Student" button and when this is done tests can be added with the "Add Test" button. Some shortcuts are available for this, they are:
Control-S: Same effect as the "Add Student" button
Control-T: Same effect as the "Add Test" button
If a mistake is made while entering grades, the "Cancel" button in the dialog box will backspace through students in order to find the incorrect grade, allow you to change the weight by cancelling at the first student prompt, or allow you to delete the test entirely by canceling at the weight prompt.
If a mistake is allowed to be entered, then it can be remedied by correcting the students card. There is
no reason to correct the test card except for your own records, the test cards have no effect on the averaging process. Once corrected whatever problems your mistake may have caused in the averaging process will be updated correctly after the next grade is entered. If there are no more grades, then type "GetAverages" into the message box and hit return from that classes card. When manually adding grades, be sure to end each grade entry with a comma.If the averages are not giving numerical answers this is probably the problem
Clicking on the students "desk" will bring you to his card in order to facilitate error removal. A missing grade is signified by an "*" (asterisk) symbol.
In order to customize the grade scale, click on the grades button on this card. You may then enter your own grades, but make sure to stick to the format shown:
A+,101,97
A,97,94
in this instance, a 97.1 will be given an A+ while a 96.9 will be given an A. In the event averages greater than 101 occur, make the first entry in the A+ as high as you want.
REMEMBER, This stack is not free, if you are a teacher, and you use this stack then you owe me $5. It is payable by check at the address shown in the "Get Info" balloon. I will try and help out registered users anyway I can, so send in those checks!
.iso/Stacks/Hyper Education/Organizational Aids/Student Teacher/card_2916_render.png){kind=link}
.iso/Stacks/Hyper Education/Organizational Aids/Student Teacher/card_3682_render.png){kind=link}